home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…rary 6 (Reseller Edition) / Apple Ref. & Pres. Lib.v6.0.toast / pc / 3-Presentations / Apple Demos / Training / HyperCard 2.0 Training / •HC 2.0-2 / card_29737.txt < prev    next >
Text File  |  1990-08-07  |  6KB  |  278 lines
  1. -- card: 29737 from stack: in.0-2
  2. -- bmap block id: 30031
  3. -- flags: 0000
  4. -- background id: 27044
  5. -- name: designing
  6. ----- HyperTalk script -----
  7. -- This handler performs the animation.
  8. on doAnimation
  9.   reset
  10.   screenToDo
  11.   wait 20
  12.   repeat for 2
  13.     set the hilite of btn "smallBtn" to not the hilite of btn "smallBtn"
  14.   end repeat
  15.   zoomRect the rect of btn "smallBtn", the rect of btn "screenMask"
  16.   hide btn "screenMask"
  17.   wait 40
  18.   repeat for 2
  19.     set the hilite of btn "smallBtn" to not the hilite of btn "smallBtn"
  20.   end repeat
  21.   zoomRect the rect of btn "smallBtn", the rect of btn "wrench"
  22.   show btn "wrench"
  23.   wait 20
  24.   createObject "menu1"
  25.   createObject "menu2"
  26.   createObject "palette1"
  27.   createObject "palette2"
  28.   createObject "window1"
  29.   wait 30
  30.   putScreenBack
  31.   wait 20
  32.   show cd btn "See It Again"
  33. end doAnimation
  34.  
  35. -- This handler resets the animation.
  36. on reset
  37.   lock screen
  38.   hideObjects
  39.   centerWrench
  40.   hide btn "wrench"
  41.   hide cd btn "See It Again"
  42.   unlock screen with dissolve
  43. end reset
  44.  
  45. ----------------------------
  46. -- These are mini animations used by doAnimation.
  47. on hideObjects
  48.   show btn "screenmask"
  49.   hide btn "menu1"
  50.   hide btn "menu2"
  51.   hide btn "palette1"
  52.   hide btn "palette2"
  53.   hide btn "window1"
  54. end hideObjects
  55.  
  56. on screenToDo
  57.   repeat for 2
  58.     repeat with n = 1 to 4
  59.       set the icon of btn "thingshappen" to ("disturbance" & n)
  60.       wait 10
  61.     end repeat
  62.   end repeat
  63.   set the icon of btn "thingshappen" to 0
  64. end screenToDo
  65.  
  66. on createObject objectName
  67.   put the loc of btn objectName into theLoc
  68.   subtract 10 from item 1 of theLoc
  69.   add 10 to item 2 of theLoc
  70.   set the loc of btn "wrench" to theLoc
  71.   turnWrench
  72.   show btn objectName
  73.   centerWrench
  74.   wait 30
  75. end createObject
  76.  
  77. on turnWrench
  78.   repeat for 2
  79.     set the icon of btn "wrench" to "wrench1"
  80.     wait 10
  81.     set the icon of btn "wrench" to "wrench2"
  82.     wait 10
  83.     set the icon of btn "wrench" to "wrench3"
  84.     wait 10
  85.     set the icon of btn "wrench" to "wrench2"
  86.     wait 10
  87.   end repeat
  88.   set the icon of btn "wrench" to "wrench2"
  89. end turnWrench
  90.  
  91. on centerWrench
  92.   set the rect of btn "wrench" to 252,104,291,142
  93. end centerWrench
  94.  
  95. on putScreenBack
  96.   repeat for 4
  97.     set the hilite of btn "wrench" to not the hilite of btn "wrench"
  98.   end repeat
  99.   zoomRect the rect of btn "wrench", the rect of btn "smallBtn"
  100.   hide btn "wrench"
  101.   wait 40
  102.   repeat for 2
  103.     set the hilite of btn "screenmask" to not the hilite of btn "screenmask"
  104.   end repeat
  105.   zoomRect the rect of btn "screenmask", the rect of btn "smallBtn"
  106.   lock screen
  107.   hideObjects
  108.   unlock screen
  109. end putScreenBack
  110.  
  111.  
  112.  
  113. -- part 1 (button)
  114. -- low flags: 80
  115. -- high flags: 0000
  116. -- rect: left=269 top=81 right=122 bottom=310
  117. -- title width / last selected line: 0
  118. -- icon id / first selected line: 23327 / 23327
  119. -- text alignment: 1
  120. -- font id: 0
  121. -- text size: 12
  122. -- style flags: 0
  123. -- line height: 16
  124. -- part name: menu1
  125.  
  126.  
  127. -- part 4 (button)
  128. -- low flags: 00
  129. -- high flags: 0001
  130. -- rect: left=227 top=83 right=166 bottom=324
  131. -- title width / last selected line: 0
  132. -- icon id / first selected line: 0 / 0
  133. -- text alignment: 1
  134. -- font id: 0
  135. -- text size: 12
  136. -- style flags: 0
  137. -- line height: 16
  138. -- part name: screenmask
  139.  
  140.  
  141. -- part 5 (button)
  142. -- low flags: 00
  143. -- high flags: 0000
  144. -- rect: left=349 top=112 right=124 bottom=361
  145. -- title width / last selected line: 0
  146. -- icon id / first selected line: 0 / 0
  147. -- text alignment: 1
  148. -- font id: 0
  149. -- text size: 12
  150. -- style flags: 0
  151. -- line height: 16
  152. -- part name: smallBtn
  153.  
  154.  
  155. -- part 6 (button)
  156. -- low flags: 00
  157. -- high flags: 0000
  158. -- rect: left=338 top=96 right=136 bottom=373
  159. -- title width / last selected line: 0
  160. -- icon id / first selected line: 0 / 0
  161. -- text alignment: 1
  162. -- font id: 0
  163. -- text size: 12
  164. -- style flags: 0
  165. -- line height: 16
  166. -- part name: thingsHappen
  167.  
  168.  
  169. -- part 8 (button)
  170. -- low flags: 80
  171. -- high flags: 0000
  172. -- rect: left=244 top=84 right=121 bottom=278
  173. -- title width / last selected line: 0
  174. -- icon id / first selected line: 27949 / 27949
  175. -- text alignment: 1
  176. -- font id: 0
  177. -- text size: 12
  178. -- style flags: 0
  179. -- line height: 16
  180. -- part name: menu2
  181.  
  182.  
  183. -- part 9 (button)
  184. -- low flags: 80
  185. -- high flags: 0000
  186. -- rect: left=227 top=124 right=157 bottom=255
  187. -- title width / last selected line: 0
  188. -- icon id / first selected line: 12586 / 12586
  189. -- text alignment: 1
  190. -- font id: 0
  191. -- text size: 12
  192. -- style flags: 0
  193. -- line height: 16
  194. -- part name: palette2
  195.  
  196.  
  197. -- part 10 (button)
  198. -- low flags: 80
  199. -- high flags: 0000
  200. -- rect: left=227 top=96 right=129 bottom=255
  201. -- title width / last selected line: 0
  202. -- icon id / first selected line: 16452 / 16452
  203. -- text alignment: 1
  204. -- font id: 0
  205. -- text size: 12
  206. -- style flags: 0
  207. -- line height: 16
  208. -- part name: palette1
  209.  
  210.  
  211. -- part 11 (button)
  212. -- low flags: 80
  213. -- high flags: 0000
  214. -- rect: left=263 top=115 right=147 bottom=300
  215. -- title width / last selected line: 0
  216. -- icon id / first selected line: 23073 / 23073
  217. -- text alignment: 1
  218. -- font id: 0
  219. -- text size: 12
  220. -- style flags: 0
  221. -- line height: 16
  222. -- part name: window1
  223.  
  224.  
  225. -- part 12 (button)
  226. -- low flags: 80
  227. -- high flags: 0000
  228. -- rect: left=252 top=104 right=142 bottom=291
  229. -- title width / last selected line: 0
  230. -- icon id / first selected line: 13645 / 13645
  231. -- text alignment: 1
  232. -- font id: 0
  233. -- text size: 12
  234. -- style flags: 0
  235. -- line height: 16
  236. -- part name: wrench
  237.  
  238.  
  239. -- part 13 (field)
  240. -- low flags: 01
  241. -- high flags: 0000
  242. -- rect: left=61 top=96 right=149 bottom=227
  243. -- title width / last selected line: 0
  244. -- icon id / first selected line: 0 / 0
  245. -- text alignment: 0
  246. -- font id: 174
  247. -- text size: 14
  248. -- style flags: 256
  249. -- line height: 15
  250. -- part name: 
  251.  
  252.  
  253. -- part 14 (button)
  254. -- low flags: 80
  255. -- high flags: A004
  256. -- rect: left=57 top=172 right=189 bottom=137
  257. -- title width / last selected line: 0
  258. -- icon id / first selected line: 0 / 0
  259. -- text alignment: 1
  260. -- font id: 174
  261. -- text size: 12
  262. -- style flags: 0
  263. -- line height: 16
  264. -- part name: See It Again
  265. ----- HyperTalk script -----
  266. -- This handler resets the animation and shows it again.
  267. on mouseUp
  268.   set cursor to none
  269.   reset
  270.   unlock screen
  271.   doAnimation
  272. end mouseUp
  273.  
  274.  
  275.  
  276. -- part contents for card part 13
  277. ----- text -----
  278. HyperCard gives you the tools to simulate and prototype applications.